!------------------------------egs5_uphiot.f----------------------------
! Version: 051219-1435
!-----------------------------------------------------------------------
!23456789|123456789|123456789|123456789|123456789|123456789|123456789|12

      common/UPHIOT/     
     * theta,                                         
     * sinthe,                                   
     * costhe,                                   
     * sinphi,     
     * cosphi,     
     * PI,                                                          
     * TWOPI,                                             
     * PI5D2                                

      real*8 theta,sinthe,costhe,sinphi,cosphi,PI,TWOPI,PI5D2

!-----------------------last line of egs5_uphiot.f---------------------
